SPACE 1

home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / misc~1 / 197 / dir.bas < prev next >
Unknown | 1988-08-27 | 6.3 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	magic	Supported
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`10%`	dexvert	Degas High Resolution Picture (PI) `(image/degasHiPI)`	magic	Supported
`1%`	dexvert	Memotech MTX BASIC source `(document/memotechMTXBASICSource)`	ext	Unsupported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	MacBinary, bozo, bundle, invisible, locked, ID 0x18, protected 0x30, comment length 24, total length 414187520, 2nd header length 6320, Fri Feb 24 13:46:24 2040 INVALID date, modified Fri Feb 24 16:20:00 2040, creator ' �', type ' T', 1599488 bytes "Gf" , at 0x186880 1599488 bytes resource	default (weak)
`99%`	file	data	default
`64%`	TrID	GFA-BASIC Atari v2 tokenized source	default
`22%`	TrID	GFA-BASIC Atari tokenized source (generic)	default
`12%`	TrID	DEGAS hi-res bitmap	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 02 47 66 41 42 41 53 | 49 43 00 00 00 00 00 00 |..GfABAS|IC......|
|00000010| 00 30 00 00 00 54 00 00 | 00 d0 00 00 00 d0 00 00 |.0...T..|........|
|00000020| 00 d0 00 00 01 02 00 00 | 01 1a 00 00 01 1a 00 00 |........|........|
|00000030| 01 34 00 00 01 3e 00 00 | 01 3e 00 00 01 3e 00 00 |.4...>..|.>...>..|
|00000040| 0c 54 00 00 0e 80 00 00 | 17 e8 00 00 18 12 00 00 |.T......|........|
|00000050| 18 30 00 00 18 68 00 00 | 18 68 00 00 18 68 00 00 |.0...h..|.h...h..|
|00000060| 18 8c 00 00 18 a4 00 00 | 18 a4 00 00 18 ac 00 00 |........|........|
|00000070| 18 b0 00 00 18 b0 00 00 | 18 b0 00 00 34 c8 02 44 |........|....4..D|
|00000080| 30 02 44 4f 07 4c 45 4e | 46 55 4c 4c 04 41 54 54 |0.DO.LEN|FULL.ATT|
|00000090| 52 09 46 49 4c 45 43 4f | 55 4e 54 0c 46 49 4c 45 |R.FILECO|UNT.FILE|
|000000a0| 53 43 4f 55 4e 54 45 44 | 05 43 4f 55 4e 54 03 42 |SCOUNTED|.COUNT.B|
|000000b0| 55 46 08 46 49 4c 45 5f | 4e 41 4d 03 45 58 54 08 |UF.FILE_|NAM.EXT.|
|000000c0| 46 49 4c 45 4e 41 4d 45 | 08 46 55 4c 4c 4e 41 4d |FILENAME|.FULLNAM|
|000000d0| 45 00 03 44 54 41 08 46 | 49 4c 45 5f 50 54 52 06 |E..DTA.F|ILE_PTR.|
|000000e0| 41 54 54 52 49 42 09 46 | 49 4c 45 43 4f 55 4e 54 |ATTRIB.F|ILECOUNT|
|000000f0| 04 44 41 54 45 04 41 54 | 54 52 05 43 4f 55 4e 54 |.DATE.AT|TR.COUNT|
|00000100| 07 4c 45 4e 46 55 4c 4c | 07 46 55 4c 4c 53 45 50 |.LENFULL|.FULLSEP|
|00000110| 08 46 49 4c 45 53 49 5a | 45 0b 46 4f 4c 44 45 52 |.FILESIZ|E.FOLDER|
|00000120| 43 4f 55 4e 54 0c 46 49 | 4c 45 53 43 4f 55 4e 54 |COUNT.FI|LESCOUNT|
|00000130| 45 44 0c 46 4f 4c 44 45 | 52 53 43 4f 55 4e 54 0e |ED.FOLDE|RSCOUNT.|
|00000140| 46 4f 4c 44 45 52 53 43 | 4f 55 4e 54 45 44 08 46 |FOLDERSC|OUNTED.F|
|00000150| 49 4c 45 4e 41 4d 45 08 | 46 49 4c 45 53 49 5a 45 |ILENAME.|FILESIZE|
|00000160| 07 46 49 4c 45 45 58 54 | 03 45 58 54 09 46 55 4c |.FILEEXT|.EXT.FUL|
|00000170| 4c 45 4e 41 4d 45 08 46 | 55 4c 4c 4e 41 4d 45 00 |LENAME.F|ULLNAME.|
|00000180| 08 46 49 4c 45 53 49 5a | 45 04 54 49 4d 45 04 44 |.FILESIZ|E.TIME.D|
|00000190| 41 54 45 04 41 54 54 52 | 0a 4f 48 5f 53 4b 49 50 |ATE.ATTR|.OH_SKIP|
|000001a0| 5f 49 54 0d 4f 4f 4f 4f | 48 5f 53 4b 49 50 5f 49 |_IT.OOOO|H_SKIP_I|
|000001b0| 54 00 08 47 45 54 5f 4e | 45 58 54 00 04 10 0d 0f |T..GET_N|EXT.....|
|000001c0| 34 10 20 6c 61 79 6f 75 | 74 20 74 68 65 20 61 72 |4. layou|t the ar|
|000001d0| 72 61 79 20 66 6f 72 20 | 74 68 65 20 76 61 72 69 |ray for |the vari|
|000001e0| 6f 75 73 20 64 69 72 65 | 63 74 6f 72 79 20 64 61 |ous dire|ctory da|
|000001f0| 74 61 0d 6c 4a 2a e5 00 | dd 7f 7f 00 00 00 02 07 |ta.lJ*..|........|
|00000200| 20 21 e5 03 dd 7f 7f 00 | 00 00 02 07 20 21 e6 00 | !......|.... !..|
|00000210| dd 7f 7f 00 00 00 02 07 | 20 21 e6 01 dd 7f 7f 00 |........| !......|
|00000220| 00 00 02 07 20 21 e6 02 | dd 7f 7f 00 00 00 02 07 |.... !..|........|
|00000230| 20 21 e6 03 dd 7f 7f 00 | 00 00 02 07 20 46 04 10 | !......|.... F..|
|00000240| 0d 45 50 10 20 6e 6f 74 | 69 63 65 20 77 65 20 73 |.EP. not|ice we s|
|00000250| 74 61 72 74 20 74 68 65 | 20 66 69 6c 65 63 6f 75 |tart the| filecou|
|00000260| 6e 74 20 40 20 31 2c 20 | 6e 6f 74 20 30 2e 20 57 |nt @ 1, |not 0. W|
|00000270| 65 20 77 69 6c 6c 20 75 | 73 65 20 30 20 66 6f 72 |e will u|se 0 for|
|00000280| 20 74 68 65 20 76 6f 6c | 75 6d 65 20 6e 61 6d 65 | the vol|ume name|
|00000290| 0d 0d 06 e2 03 45 b9 46 | 04 10 0d 6c 50 10 20 74 |.....E.F|...lP. t|
|000002a0| 68 65 20 6e 65 78 74 20 | 32 20 73 74 61 74 65 6d |he next |2 statem|
|000002b0| 65 6e 74 73 20 73 65 74 | 20 75 70 20 61 20 34 34 |ents set| up a 44|
|000002c0| 2d 62 79 74 65 20 62 75 | 66 66 65 72 28 42 75 66 |-byte bu|ffer(Buf|
|000002d0| 24 29 20 61 6e 64 20 69 | 74 73 27 20 61 64 64 72 |$) and i|ts' addr|
|000002e0| 65 73 73 20 28 44 74 61 | 25 29 0d 0d 0e e1 00 45 |ess (Dta|%).....E|
|000002f0| 80 df 30 00 00 00 02 05 | 20 46 0a e2 00 45 7a e1 |..0.....| F...Ez.|
|00000300| 00 20 46 05 04 10 0d 6c | 50 10 20 47 65 6d 64 6f |. F....l|P. Gemdo|
|00000310| 73 20 66 75 6e 63 74 69 | 6f 6e 20 24 31 41 20 73 |s functi|on $1A s|
|00000320| 65 74 73 20 74 68 65 20 | 64 69 73 6b 20 74 72 61 |ets the |disk tra|
|00000330| 6e 73 66 65 72 20 61 64 | 64 72 65 73 73 2e 20 53 |nsfer ad|dress. S|
|00000340| 65 65 20 53 54 20 49 4e | 54 45 52 4e 41 4c 53 2c |ee ST IN|TERNALS,|
|00000350| 20 70 2e 31 31 32 0d 31 | 10 9e 89 dc 50 00 00 00 | p.112.1|....P...|
|00000360| 02 04 21 8a e2 00 20 46 | 04 10 0d 47 52 10 20 44 |..!... F|...GR. D|
|00000370| 65 66 61 75 6c 74 20 70 | 61 74 68 20 73 74 72 69 |efault p|ath stri|
|00000380| 6e 67 20 61 6e 64 20 69 | 74 73 27 20 6d 65 6d 6f |ng and i|ts' memo|
|00000390| 72 79 20 6c 6f 63 61 74 | 69 6f 6e 2e 20 54 65 72 |ry locat|ion. Ter|
|000003a0| 6d 69 6e 61 74 65 20 77 | 69 74 68 20 61 20 6e 75 |minate w|ith a nu|
|000003b0| 6c 6c 20 28 63 68 72 24 | 28 30 29 29 0d 0d 0e e1 |ll (chr$|(0))....|
|000003c0| 01 45 de 03 2a 2e 2a 1c | 42 b8 20 46 0a e2 01 45 |.E..*.*.|B. F...E|
|000003d0| 7a e1 01 20 46 1c 04 10 | 0d 44 46 10 20 53 65 74 |z.. F...|.DF. Set|
|000003e0| 20 66 69 6c 65 20 61 74 | 74 72 69 62 75 74 65 73 | file at|tributes|
|000003f0| 20 77 65 20 61 72 65 20 | 6c 6f 6f 6b 69 6e 67 20 | we are |looking |
|00000400| 66 6f 72 2e 20 53 65 65 | 20 70 2e 31 33 34 20 6f |for. See| p.134 o|
|00000410| 66 20 53 54 20 49 6e 74 | 65 72 6e 61 6c 73 2e 0d |f ST Int|ernals..|
|00000420| 4e 10 20 48 65 72 65 20 | 77 65 20 73 65 74 20 62 |N. Here |we set b|
|00000430| 69 74 20 31 20 66 6f 72 | 20 72 65 61 64 20 6f 6e |it 1 for| read on|
|00000440| 6c 79 2c 20 62 69 74 20 | 34 20 66 6f 72 20 76 6f |ly, bit |4 for vo|
|00000450| 6c 75 6d 65 2c 20 62 69 | 74 20 35 20 66 6f 72 20 |lume, bi|t 5 for |
|00000460| 73 75 62 64 69 72 65 63 | 74 6f 72 79 0d 30 0e e2 |subdirec|tory.0..|
|00000470| 02 45 dd 48 48 00 00 00 | 02 04 46 00 04 10 0d 48 |.E.HH...|..F....H|
|00000480| 4a 10 20 4e 6f 74 65 20 | 74 68 69 73 20 6d 69 64 |J. Note |this mid|
|00000490| 24 20 63 6f 6d 6d 61 6e | 64 2e 20 49 20 68 61 64 |$ comman|d. I had|
|000004a0| 20 74 6f 20 70 75 74 20 | 74 68 69 73 20 69 6e 20 | to put |this in |
|000004b0| 74 6f 20 63 6c 65 61 72 | 20 6f 75 74 20 74 68 65 |to clear| out the|
|000004c0| 20 66 69 6c 65 6e 61 6d | 65 0d 4a 10 20 73 65 63 | filenam|e.J. sec|
|000004d0| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 44 54 41 20 |tion of |the DTA |
|000004e0| 62 75 66 66 65 72 2c 20 | 6f 74 68 65 72 77 69 73 |buffer, |otherwis|
|000004f0| 65 20 74 68 65 20 70 72 | 65 76 69 6f 75 73 20 63 |e the pr|evious c|
|00000500| 68 61 72 61 63 74 65 72 | 73 20 77 65 72 65 20 6e |haracter|s were n|
|00000510| 6f 74 0d 77 52 10 20 65 | 72 61 73 65 64 20 61 6e |ot.wR. e|rased an|
|00000520| 64 20 61 20 6e 65 77 20 | 73 6d 61 6c 6c 65 72 20 |d a new |smaller |
|00000530| 6e 61 6d 65 20 77 6f 75 | 6c 64 20 62 65 20 73 69 |name wou|ld be si|
|00000540| 6d 70 6c 79 20 61 64 64 | 65 64 20 74 6f 20 74 68 |mply add|ed to th|
|00000550| 65 20 6f 6c 64 65 72 20 | 6c 61 72 67 65 72 20 6e |e older |larger n|
|00000560| 61 6d 65 2e 0d 0d 4e 10 | 20 59 6f 75 20 64 6f 6e |ame...N.| You don|
|00000570| 27 74 20 62 65 6c 69 65 | 76 65 20 6d 65 3f 20 41 |'t belie|ve me? A|
|00000580| 77 77 77 2e 20 43 6f 6d | 6d 65 6e 74 20 74 68 69 |www. Com|ment thi|
|00000590| 73 20 6f 75 74 2c 20 72 | 75 6e 20 69 74 2c 20 61 |s out, r|un it, a|
|000005a0| 6e 64 20 79 6f 75 27 6c | 6c 20 6b 6e 6f 77 20 77 |nd you'l|l know w|
|000005b0| 68 61 74 0d 50 10 20 49 | 20 6d 65 61 6e 2e 20 46 |hat.P. I| mean. F|
|000005c0| 6f 72 20 6d 6f 72 65 20 | 69 6e 66 6f 20 6f 6e 20 |or more |info on |
|000005d0| 74 68 65 20 44 54 41 20 | 62 75 66 66 65 72 20 63 |the DTA |buffer c|
|000005e0| 6f 6e 74 65 6e 74 73 2c | 20 73 65 65 20 70 2e 31 |ontents,| see p.1|
|000005f0| 33 35 20 6f 66 20 53 54 | 20 49 4e 54 45 52 4e 41 |35 of ST| INTERNA|
|00000600| 4c 53 2e 0d 26 93 e1 00 | 21 df 70 00 00 00 02 04 |LS..&...|!.p.....|
|00000610| 21 df 50 00 00 00 02 03 | 20 45 de 0d 20 20 20 20 |!.P.....| E..    |
|00000620| 20 20 20 20 20 20 20 20 | 20 46 04 10 0d 49 4a 10 |        | F...IJ.|
|00000630| 20 4e 6f 77 20 77 65 20 | 73 74 61 72 74 20 64 69 | Now we |start di|
|00000640| 70 70 69 6e 67 20 69 6e | 74 6f 20 74 68 65 20 64 |pping in|to the d|
|00000650| 69 72 65 63 74 6f 72 79 | 2e 20 54 68 69 73 20 69 |irectory|. This i|
|00000660| 73 20 74 68 65 20 53 46 | 49 52 53 54 20 66 75 6e |s the SF|IRST fun|
|00000670| 63 74 69 6f 6e 2c 0d 52 | 52 10 20 6f 74 68 65 72 |ction,.R|R. other|
|00000680| 77 69 73 65 20 6b 6e 6f | 77 6e 20 61 73 20 47 65 |wise kno|wn as Ge|
|00000690| 6d 64 6f 73 20 24 34 45 | 2e 20 53 65 65 20 70 2e |mdos $4E|. See p.|
|000006a0| 31 33 34 20 6f 66 20 53 | 54 20 49 4e 54 45 52 4e |134 of S|T INTERN|
|000006b0| 41 4c 53 2e 20 52 65 6d | 65 6d 62 65 72 20 28 49 |ALS. Rem|ember (I|
|000006c0| 20 64 69 64 6e 27 74 29 | 0d 0d 50 10 20 74 68 61 | didn't)|..P. tha|
|000006d0| 74 20 42 45 46 4f 52 45 | 20 79 6f 75 20 63 61 6e |t BEFORE| you can|
|000006e0| 20 75 73 65 20 74 68 69 | 73 20 66 75 6e 63 74 69 | use thi|s functi|
|000006f0| 6f 6e 20 79 6f 75 20 68 | 61 76 65 20 74 6f 20 74 |on you h|ave to t|
|00000700| 65 6c 6c 20 47 65 6d 64 | 6f 73 20 77 68 65 72 65 |ell Gemd|os where|
|00000710| 20 79 6f 75 20 77 61 6e | 74 0d 4e 10 20 74 68 65 | you wan|t.N. the|
|00000720| 20 69 6e 66 6f 20 74 6f | 20 67 6f 20 62 79 20 63 | info to| go by c|
|00000730| 61 6c 6c 69 6e 67 20 53 | 45 54 44 54 41 20 61 73 |alling S|ETDTA as|
|00000740| 20 77 65 20 64 69 64 20 | 61 62 6f 76 65 20 77 69 | we did |above wi|
|00000750| 74 68 20 47 65 6d 64 6f | 73 20 24 31 41 2e 20 4e |th Gemdo|s $1A. N|
|00000760| 6f 74 65 20 74 68 65 0d | 4e 10 20 70 6f 69 6e 74 |ote the.|N. point|
|00000770| 65 72 20 74 6f 20 6f 75 | 72 20 73 65 61 72 63 68 |er to ou|r search|
|00000780| 20 70 61 74 68 28 46 69 | 6c 65 5f 70 74 72 25 29 | path(Fi|le_ptr%)|
|00000790| 20 67 6f 65 73 20 69 6e | 20 66 69 72 73 74 20 74 | goes in| first t|
|000007a0| 68 65 6e 20 74 68 65 20 | 41 74 74 72 69 62 75 74 |hen the |Attribut|
|000007b0| 65 73 20 77 65 0d 4e 10 | 20 61 72 65 20 73 65 65 |es we.N.| are see|
|000007c0| 6b 69 6e 67 20 28 41 74 | 74 72 69 62 25 29 2e 20 |king (At|trib%). |
|000007d0| 55 73 65 20 74 68 69 73 | 20 66 75 6e 63 74 69 6f |Use this| functio|
|000007e0| 6e 20 74 6f 20 67 65 74 | 20 74 68 65 20 62 61 6c |n to get| the bal|
|000007f0| 6c 20 72 6f 6c 6c 69 6e | 67 20 77 69 74 68 20 74 |l rollin|g with t|
|00000800| 68 65 0d 0d 4e 10 20 66 | 69 72 73 74 20 64 69 72 |he..N. f|irst dir|
|00000810| 65 63 74 6f 72 79 20 65 | 6e 74 72 79 2e 20 54 68 |ectory e|ntry. Th|
|00000820| 65 6e 2c 20 65 61 63 68 | 20 73 75 62 73 65 71 75 |en, each| subsequ|
|00000830| 65 6e 74 20 65 6e 74 72 | 79 20 61 6e 64 20 61 6c |ent entr|y and al|
|00000840| 6c 20 69 74 73 27 20 70 | 72 6f 70 65 72 74 69 65 |l its' p|ropertie|
|00000850| 73 0d 4c 10 20 63 61 6e | 20 62 65 20 63 61 6c 6c |s.L. can| be call|
|00000860| 65 64 20 75 70 20 65 76 | 65 72 79 20 74 69 6d 65 |ed up ev|ery time|
|00000870| 20 61 20 63 61 6c 6c 20 | 69 73 20 6d 61 64 65 20 | a call |is made |
|00000880| 74 6f 20 74 68 65 20 53 | 4e 45 58 54 20 66 75 6e |to the S|NEXT fun|
|00000890| 63 74 69 6f 6e 2c 20 62 | 65 6c 6f 77 2e 0d 16 e0 |ction, b|elow....|
|000008a0| 00 45 89 dc 1c 00 00 00 | 02 06 21 8a e2 01 21 8b |.E......|..!...!.|
|000008b0| e2 02 20 46 04 10 0d 63 | 50 10 20 54 68 65 20 44 |.. F...c|P. The D|
|000008c0| 30 20 77 69 6c 6c 20 63 | 6f 6e 74 61 69 6e 20 61 |0 will c|ontain a|
|000008d0| 6e 79 20 65 72 72 6f 72 | 20 63 6f 64 65 73 20 72 |ny error| codes r|
|000008e0| 65 73 75 6c 74 69 6e 67 | 20 66 72 6f 6d 20 65 69 |esulting| from ei|
|000008f0| 74 68 65 72 20 61 6e 20 | 53 46 49 52 53 54 20 6f |ther an |SFIRST o|
|00000900| 72 20 53 4e 45 58 54 0d | 4c 10 20 63 61 6c 6c 2e |r SNEXT.|L. call.|
|00000910| 20 48 65 72 65 20 77 65 | 20 61 72 65 20 63 68 65 | Here we| are che|
|00000920| 63 6b 69 6e 67 20 74 6f | 20 73 65 65 20 69 66 20 |cking to| see if |
|00000930| 6e 6f 20 66 69 6c 65 73 | 20 68 61 76 65 20 62 65 |no files| have be|
|00000940| 65 6e 20 66 6f 75 6e 64 | 20 28 61 73 20 69 66 20 |en found| (as if |
|00000950| 79 6f 75 0d 48 10 20 63 | 6f 75 6c 64 6e 27 74 20 |you.H. c|ouldn't |
|00000960| 66 69 67 75 72 65 20 74 | 68 61 74 20 6f 6e 65 20 |figure t|hat one |
|00000970| 6f 75 74 29 2e 20 53 65 | 65 20 70 2e 31 33 39 20 |out). Se|e p.139 |
|00000980| 6f 66 20 53 54 20 49 4e | 54 45 52 4e 41 4c 53 20 |of ST IN|TERNALS |
|00000990| 66 6f 72 20 47 65 6d 64 | 6f 73 0d 65 3c 10 20 65 |for Gemd|os.e<. e|
|000009a0| 72 72 6f 72 20 63 6f 64 | 65 73 2e 20 41 6e 79 20 |rror cod|es. Any |
|000009b0| 65 72 72 6f 72 20 61 6c | 77 61 79 73 20 72 65 74 |error al|ways ret|
|000009c0| 75 72 6e 73 20 61 20 6e | 65 67 61 74 69 76 65 20 |urns a n|egative |
|000009d0| 6e 75 6d 62 65 72 2e 0d | 14 0b 00 03 e1 2a e0 00 |number..|.....*..|
|000009e0| 13 1e dd 04 04 00 00 00 | 02 05 46 02 14 0e de 0e |........|..F.....|
|000009f0| 66 69 6c 65 20 6e 6f 74 | 20 66 6f 75 6e 64 46 02 |file not| foundF.|
|00000a00| 04 71 46 0e 04 0d 46 0e | 04 10 0d 65 4e 10 54 68 |.qF...F.|...eN.Th|
|00000a10| 65 20 47 65 74 5f 6e 65 | 78 74 20 70 72 6f 63 65 |e Get_ne|xt proce|
|00000a20| 64 75 72 65 20 69 73 20 | 63 61 6c 6c 65 64 20 74 |dure is |called t|
|00000a30| 6f 20 67 65 74 20 74 68 | 65 20 6e 65 78 74 20 64 |o get th|e next d|
|00000a40| 69 72 65 63 74 6f 72 79 | 20 69 74 65 6d 2e 20 49 |irectory| item. I|
|00000a50| 20 61 6d 20 64 6f 69 6e | 67 0d 50 10 69 74 20 61 | am doin|g.P.it a|
|00000a60| 6e 20 6f 64 64 62 61 6c | 6c 20 77 61 79 2c 20 66 |n oddbal|l way, f|
|00000a70| 69 72 73 74 20 49 20 67 | 65 74 20 74 68 65 20 63 |irst I g|et the c|
|00000a80| 6f 6e 74 65 6e 74 73 20 | 66 72 6f 6d 20 74 68 65 |ontents |from the|
|00000a90| 20 44 54 41 20 62 75 66 | 66 65 72 2c 20 74 68 65 | DTA buf|fer, the|
|00000aa0| 6e 20 49 20 6d 61 6b 65 | 0d 2e 4e 10 61 20 63 61 |n I make|..N.a ca|
|00000ab0| 6c 6c 20 74 6f 20 53 4e | 45 58 54 20 61 6e 64 20 |ll to SN|EXT and |
|00000ac0| 72 65 66 69 6c 6c 20 69 | 74 20 61 67 61 69 6e 2e |refill i|t again.|
|00000ad0| 20 54 68 61 74 20 77 61 | 79 20 49 20 63 61 6e 20 | That wa|y I can |
|00000ae0| 75 73 65 20 74 68 65 20 | 52 45 50 45 41 54 2e 2e |use the |REPEAT..|
|00000af0| 2e 55 4e 54 49 4c 0d 65 | 4e 10 6c 6f 6f 70 20 77 |.UNTIL.e|N.loop w|
|00000b00| 68 69 63 68 20 69 73 20 | 66 61 73 74 65 73 74 20 |hich is |fastest |
|00000b10| 66 6f 72 20 74 68 65 20 | 63 6f 6d 70 69 6c 65 72 |for the |compiler|
|00000b20| 20 74 6f 20 65 78 65 63 | 75 74 65 2e 20 49 20 6b | to exec|ute. I k|
|00000b30| 6e 6f 77 20 62 65 63 61 | 75 73 65 20 49 20 74 65 |now beca|use I te|
|00000b40| 73 74 65 64 0d 65 4e 10 | 69 74 20 61 67 61 69 6e |sted.eN.|it again|
|00000b50| 73 74 20 74 68 65 20 6f | 74 68 65 72 20 6c 6f 6f |st the o|ther loo|
|00000b60| 70 20 63 6f 6d 6d 61 6e | 64 73 2c 20 61 6e 64 20 |p comman|ds, and |
|00000b70| 52 45 50 45 41 54 20 69 | 73 20 74 68 65 20 73 70 |REPEAT i|s the sp|
|00000b80| 65 65 64 20 64 65 6d 6f | 6e 2e 20 53 6f 20 68 65 |eed demo|n. So he|
|00000b90| 72 65 0d 65 50 10 77 65 | 20 61 72 65 20 67 65 74 |re.eP.we| are get|
|00000ba0| 74 69 6e 67 20 6f 75 74 | 20 6f 66 20 74 68 65 20 |ting out| of the |
|00000bb0| 62 75 66 66 65 72 20 77 | 68 61 74 20 74 68 65 20 |buffer w|hat the |
|00000bc0| 61 62 6f 76 65 20 47 65 | 6d 64 6f 73 20 24 34 45 |above Ge|mdos $4E|
|00000bd0| 20 63 61 6c 6c 20 70 75 | 74 20 69 6e 2c 20 74 68 | call pu|t in, th|
|00000be0| 65 6e 0d 2e 48 10 47 65 | 74 5f 6e 65 78 74 20 66 |en..H.Ge|t_next f|
|00000bf0| 65 74 63 68 65 73 20 74 | 68 65 20 6e 65 77 20 64 |etches t|he new d|
|00000c00| 69 72 65 63 74 6f 72 79 | 20 65 6e 74 72 79 73 27 |irectory| entrys'|
|00000c10| 20 69 6e 66 6f 20 69 6e | 74 6f 20 74 68 65 20 44 | info in|to the D|
|00000c20| 54 41 20 42 75 66 66 65 | 72 2e 0d 6e 06 4d e9 00 |TA Buffe|r..n.M..|
|00000c30| 46 e1 04 10 0d 65 4c 10 | 48 65 72 65 20 69 73 20 |F....eL.|Here is |
|00000c40| 74 68 65 20 62 69 67 20 | 6c 6f 6f 70 2e 20 57 65 |the big |loop. We|
|00000c50| 20 6b 65 65 70 20 70 75 | 74 74 69 6e 67 20 64 69 | keep pu|tting di|
|00000c60| 72 65 63 74 6f 72 79 20 | 65 6e 74 72 79 20 69 6e |rectory |entry in|
|00000c70| 66 6f 20 69 6e 74 6f 20 | 6f 75 72 20 61 72 72 61 |fo into |our arra|
|00000c80| 79 0d 50 10 75 6e 74 69 | 6c 20 44 30 20 28 47 65 |y.P.unti|l D0 (Ge|
|00000c90| 6d 64 6f 73 20 65 72 72 | 6f 72 20 63 6f 64 65 29 |mdos err|or code)|
|00000ca0| 20 69 73 20 6e 65 67 61 | 74 69 76 65 2c 20 77 68 | is nega|tive, wh|
|00000cb0| 69 63 68 20 50 52 4f 42 | 41 42 4c 59 20 6d 65 61 |ich PROB|ABLY mea|
|00000cc0| 6e 73 20 6e 6f 20 6d 6f | 72 65 20 65 6e 74 72 79 |ns no mo|re entry|
|00000cd0| 73 0d 4e 10 62 75 74 20 | 77 65 20 73 68 6f 75 6c |s.N.but |we shoul|
|00000ce0| 64 20 73 74 6f 70 20 6e | 6f 20 6d 61 74 74 65 72 |d stop n|o matter|
|00000cf0| 20 77 68 61 74 20 74 68 | 65 20 65 72 72 6f 72 2c | what th|e error,|
|00000d00| 20 73 6f 20 77 65 20 6a | 75 73 74 20 74 65 73 74 | so we j|ust test|
|00000d10| 20 66 6f 72 20 61 6e 79 | 20 65 72 72 6f 72 2e 0d | for any| error..|
|00000d20| 04 02 46 05 06 4d e9 00 | 46 e1 0c 03 02 03 e4 46 |..F..M..|F......F|
|00000d30| e0 00 11 b8 46 00 04 10 | 0d 53 4c 10 20 48 65 72 |....F...|.SL. Her|
|00000d40| 65 20 77 65 20 73 70 69 | 6c 6c 20 74 68 65 20 41 |e we spi|ll the A|
|00000d50| 72 72 61 79 73 20 74 68 | 61 74 20 68 61 76 65 20 |rrays th|at have |
|00000d60| 62 65 65 6e 20 66 69 6c | 6c 65 64 20 77 69 74 68 |been fil|led with|
|00000d70| 20 6f 75 72 20 64 69 72 | 65 63 74 6f 72 79 20 64 | our dir|ectory d|
|00000d80| 61 74 61 21 0d 72 52 0b | 00 03 e6 20 e0 00 13 1e |ata!.rR.|... ....|
|00000d90| dd 44 44 00 00 00 02 05 | 46 65 03 20 3c 2d 2d 2d |.DD.....|Fe. <---|
|00000da0| 2d 2d 2d 2d 2d 20 20 20 | 20 2d 34 39 20 6d 65 61 |-----   | -49 mea|
|00000db0| 6e 73 20 4e 4f 20 4d 4f | 52 45 20 46 49 4c 45 53 |ns NO MO|RE FILES|
|00000dc0| 2c 20 73 6f 20 77 65 20 | 73 74 61 72 74 20 64 75 |, so we |start du|
|00000dd0| 6d 70 69 6e 67 2e 0d 73 | 06 e2 06 45 b9 46 04 02 |mping..s|...E.F..|
|00000de0| 46 02 4a 0e e5 00 e2 06 | 20 22 de 01 20 22 e5 03 |F.J.....| ".. "..|
|00000df0| e2 06 20 22 de 04 20 20 | 20 20 22 e6 00 e2 06 20 |.. "..  |  ".... |
|00000e00| 22 de 04 20 20 20 20 22 | e6 02 e2 06 20 22 de 05 |"..    "|.... "..|
|00000e10| 20 20 20 20 20 22 e6 01 | e2 06 20 22 de 06 20 20 |     "..|.. "..  |
|00000e20| 20 20 20 20 22 e6 03 e2 | 06 20 46 00 06 34 e2 06 |    "...|. F..4..|
|00000e30| 46 20 0c 03 02 03 e5 04 | e2 06 13 e2 03 46 04 0e |F ......|.....F..|
|00000e40| 46 03 0e 0b 00 03 e5 98 | e5 00 b8 20 14 de 00 46 |F.......|... ...F|
|00000e50| 1e 0e de 14 20 54 68 65 | 20 76 6f 6c 75 6d 65 20 |.... The| volume |
|00000e60| 6e 61 6d 65 20 69 73 20 | 22 e5 00 b8 20 46 08 0c |name is |"... F..|
|00000e70| 00 03 e5 c0 46 00 24 0e | de 1f 20 54 68 69 73 20 |....F.$.|.. This |
|00000e80| 64 69 73 6b 20 68 61 73 | 20 4e 4f 20 76 6f 6c 75 |disk has| NO volu|
|00000e90| 6d 65 20 6c 61 62 65 6c | 20 46 04 0d 46 1f 22 0e |me label| F..F.".|
|00000ea0| de 09 20 57 65 20 68 61 | 76 65 20 22 e2 0b 06 e2 |.. We ha|ve "....|
|00000eb0| 0d 22 de 0b 20 65 6e 74 | 72 69 65 73 2e 2e 2e 46 |.".. ent|ries...F|
|00000ec0| 36 0e de 0f 20 43 6f 6e | 73 69 73 74 69 6e 67 20 |6... Con|sisting |
|00000ed0| 6f 66 20 22 e2 0d 22 de | 0f 20 46 6f 6c 64 65 72 |of "..".|. Folder|
|00000ee0| 28 73 29 20 61 6e 64 20 | 22 e2 0b 22 de 07 20 66 |(s) and |"..".. f|
|00000ef0| 69 6c 65 73 20 46 04 0e | 46 08 04 0d 46 00 04 10 |iles F..|F...F...|
|00000f00| 0d 09 22 10 20 57 68 61 | 74 20 64 6f 20 79 6f 75 |..". Wha|t do you|
|00000f10| 20 74 68 69 6e 6b 20 74 | 68 69 73 20 69 73 20 66 | think t|his is f|
|00000f20| 6f 72 3f 0d 14 0b 00 03 | e6 70 e0 00 13 1e dd 04 |or?.....|.p......|
|00000f30| 04 00 00 00 02 05 46 e2 | 12 0e de 0c 63 61 6e 6e |......F.|....cann|
|00000f40| 6f 74 20 66 69 6e 64 21 | 46 05 04 0d 46 0c 04 10 |ot find!|F...F...|
|00000f50| 0d 09 2e 10 20 54 68 69 | 73 20 69 73 20 74 68 65 |.... Thi|s is the|
|00000f60| 20 22 6d 61 69 6e 20 65 | 6e 67 69 6e 65 22 20 6f | "main e|ngine" o|
|00000f70| 66 20 74 68 65 20 70 72 | 6f 67 72 61 6d 2e 0d 68 |f the pr|ogram..h|
|00000f80| 06 2b e9 00 46 e1 04 10 | 0d 54 4a 10 57 65 20 66 |.+..F...|.TJ.We f|
|00000f90| 65 74 63 68 20 74 68 65 | 20 66 69 6c 65 20 61 74 |etch the| file at|
|00000fa0| 74 72 69 62 75 74 65 20 | 28 72 65 61 64 20 6f 6e |tribute |(read on|
|00000fb0| 6c 79 2c 20 73 75 62 64 | 69 72 2c 20 68 69 64 64 |ly, subd|ir, hidd|
|00000fc0| 65 6e 2c 20 65 74 63 29 | 20 66 72 6f 6d 20 62 79 |en, etc)| from by|
|00000fd0| 74 65 0d 69 38 10 32 31 | 20 69 6e 20 6f 75 72 20 |te.i8.21| in our |
|00000fe0| 44 54 41 20 62 75 66 66 | 65 72 2e 20 4e 6f 74 69 |DTA buff|er. Noti|
|00000ff0| 63 65 2c 20 50 65 65 6b | 20 3d 20 42 59 54 45 20 |ce, Peek| = BYTE |
|00001000| 6f 70 65 72 61 74 69 6f | 6e 2e 0d 6e 16 14 e6 03 |operatio|n..n....|
|00001010| e2 03 20 45 32 e2 00 06 | dd 28 28 00 00 00 02 04 |.. E2...|.((.....|
|00001020| 20 46 04 10 0d 31 4c 10 | 48 65 72 65 20 77 65 20 | F...1L.|Here we |
|00001030| 67 72 61 62 20 74 68 65 | 20 66 69 6c 65 6e 61 6d |grab the| filenam|
|00001040| 65 20 50 4c 55 53 20 65 | 78 74 65 6e 64 65 72 20 |e PLUS e|xtender |
|00001050| 66 6f 75 6e 64 20 69 6e | 20 74 68 65 20 44 54 41 |found in| the DTA|
|00001060| 20 62 75 66 66 65 72 20 | 66 72 6f 6d 20 62 79 74 | buffer |from byt|
|00001070| 65 0d 34 10 33 31 20 74 | 68 72 75 20 62 79 74 65 |e.4.31 t|hru byte|
|00001080| 20 34 33 20 28 74 68 61 | 74 27 73 20 31 32 20 62 | 43 (tha|t's 12 b|
|00001090| 79 74 65 73 20 66 72 6f | 6d 20 33 31 20 66 6f 6c |ytes fro|m 31 fol|
|000010a0| 6b 73 29 2e 0d 0d 1a 14 | e1 04 45 3f e1 00 40 df |ks).....|..E?..@.|
|000010b0| 78 00 00 00 02 04 40 df | 40 00 00 00 02 03 20 46 |x.....@.|@..... F|
|000010c0| 04 10 0d 00 4e 10 4c 65 | 74 27 73 20 6e 6f 74 20 |....N.Le|t's not |
|000010d0| 75 73 65 20 74 68 6f 73 | 65 20 77 69 65 72 64 20 |use thos|e wierd |
|000010e0| 65 6e 74 72 69 65 73 20 | 77 68 69 63 68 20 61 72 |entries |which ar|
|000010f0| 65 20 6a 75 73 74 20 22 | 2e 22 20 6f 72 20 22 2e |e just "|." or ".|
|00001100| 2e 22 20 74 68 61 74 20 | 61 70 70 65 61 72 20 69 |." that |appear i|
|00001110| 6e 0d 4c 10 74 68 65 20 | 64 69 72 65 63 74 6f 72 |n.L.the |director|
|00001120| 69 65 73 2e 20 49 20 63 | 61 6e 27 74 20 66 69 67 |ies. I c|an't fig|
|00001130| 75 72 65 20 6f 75 74 20 | 77 68 61 74 20 74 68 6f |ure out |what tho|
|00001140| 73 65 20 61 72 65 20 66 | 6f 72 2c 20 63 61 6e 20 |se are f|or, can |
|00001150| 79 6f 75 3f 20 54 68 65 | 79 20 61 72 65 0d 4c 10 |you? The|y are.L.|
|00001160| 61 6c 77 61 79 73 20 6c | 69 73 74 65 64 20 61 73 |always l|isted as|
|00001170| 20 53 55 42 44 49 52 73 | 20 28 66 69 6c 65 20 61 | SUBDIRs| (file a|
|00001180| 74 74 72 69 62 75 74 65 | 3d 20 31 36 29 20 61 6e |ttribute|= 16) an|
|00001190| 64 20 49 20 64 6f 6e 27 | 74 20 6b 6e 6f 77 20 6f |d I don'|t know o|
|000011a0| 66 20 61 6e 79 6f 6e 65 | 0d 0d 3c 10 77 68 6f 20 |f anyone|..<.who |
|000011b0| 77 6f 75 6c 64 20 6e 61 | 6d 65 20 74 68 69 65 72 |would na|me thier|
|000011c0| 20 66 69 6c 65 73 20 77 | 69 74 68 20 61 6e 20 65 | files w|ith an e|
|000011d0| 78 74 65 6e 64 65 72 20 | 6f 6e 6c 79 2e 20 53 6f |xtender |only. So|
|000011e0| 20 2e 2e 2e 2e 0d 24 0b | 00 03 e9 36 23 e6 03 e2 | .....$.|...6#...|
|000011f0| 03 20 13 df 00 00 00 00 | 02 04 20 00 23 3b e1 04 |. ......|.. .#;..|
|00001200| 40 b9 20 1b de 01 2e 20 | 46 6d 06 2d e8 00 46 02 |@. .... |Fm.-..F.|
|00001210| 04 0d 46 04 04 10 0d 68 | 4a 10 48 65 72 65 20 77 |..F....h|J.Here w|
|00001220| 65 20 74 72 79 20 74 6f | 20 73 65 70 65 72 61 74 |e try to| seperat|
|00001230| 65 20 74 68 65 20 65 78 | 74 65 6e 64 65 72 20 66 |e the ex|tender f|
|00001240| 72 6f 6d 20 74 68 65 20 | 6d 61 69 6e 20 66 69 6c |rom the |main fil|
|00001250| 65 6e 61 6d 65 2e 20 49 | 66 20 74 68 65 20 64 69 |ename. I|f the di|
|00001260| 72 0d 4c 10 65 6e 74 72 | 69 65 73 20 61 72 65 20 |r.L.entr|ies are |
|00001270| 74 6f 20 62 65 20 73 6f | 72 74 65 64 2c 20 74 68 |to be so|rted, th|
|00001280| 65 20 73 65 70 65 72 61 | 74 65 20 65 78 74 65 6e |e sepera|te exten|
|00001290| 64 65 72 73 20 6d 61 79 | 20 62 65 20 6e 65 73 73 |ders may| be ness|
|000012a0| 65 73 61 72 79 2e 20 41 | 6c 73 6f 2c 0d 74 40 10 |esary. A|lso,.t@.|
|000012b0| 49 20 70 72 65 66 65 72 | 20 74 6f 20 6c 61 79 20 |I prefer| to lay |
|000012c0| 6f 75 74 20 74 68 65 20 | 66 69 6c 65 6e 61 6d 65 |out the |filename|
|000012d0| 73 20 73 6f 20 74 68 65 | 79 20 6c 69 6e 65 20 75 |s so the|y line u|
|000012e0| 70 2e 20 49 20 64 6f 20 | 74 68 69 73 0d 00 4a 10 |p. I do |this..J.|
|000012f0| 62 79 20 70 61 64 64 69 | 6e 67 20 77 69 74 68 20 |by paddi|ng with |
|00001300| 73 70 61 63 65 73 2e 20 | 4e 6f 74 65 20 68 6f 77 |spaces. |Note how|
|00001310| 20 74 68 69 73 20 69 73 | 20 64 6f 6e 65 20 77 69 | this is| done wi|
|00001320| 74 68 20 74 68 65 20 4c | 45 46 54 24 20 66 75 6e |th the L|EFT$ fun|
|00001330| 63 74 69 6f 6e 2e 0d 68 | 0a 14 e2 07 45 36 e1 04 |ction..h|....E6..|
|00001340| 20 46 0e 14 e2 08 45 43 | e1 04 40 de 01 2e 20 46 | F....EC|..@... F|
|00001350| 40 0b 00 03 ed 28 e2 08 | 12 b8 46 20 02 3c 2d 2d |@....(..|..F .<--|
|00001360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 20 64 6f 65 73 |--------|--- does|
|00001370| 20 74 68 65 20 66 69 6c | 65 6e 61 6d 65 20 63 6f | the fil|ename co|
|00001380| 6e 74 61 69 6e 20 61 20 | 70 65 72 69 6f 64 3f 0d |ntain a |period?.|
|00001390| 48 0b 00 03 eb 8e e6 03 | e2 03 20 13 dd 00 00 00 |H.......|.. .....|
|000013a0| 00 00 02 04 46 3c 02 3c | 2d 2d 2d 2d 20 69 73 20 |....F<.<|---- is |
|000013b0| 74 68 69 73 20 61 20 73 | 75 62 2d 64 69 72 65 63 |this a s|ub-direc|
|000013c0| 74 6f 72 79 3f 20 41 64 | 64 20 70 61 72 65 6e 74 |tory? Ad|d parent|
|000013d0| 68 65 73 65 73 2e 0d 2e | 2e 14 e5 03 e2 03 20 45 |heses...|...... E|
|000013e0| 3b 3f e1 04 40 e2 08 40 | e2 07 05 e2 08 06 b9 20 |;?..@..@|....... |
|000013f0| 1c de 04 20 20 20 20 40 | dd 00 00 00 00 00 02 02 |...    @|........|
|00001400| 20 1c de 01 29 46 2e 14 | e5 00 e2 03 20 45 de 01 | ...)F..|.... E..|
|00001410| 28 1c 3b 3f e1 04 40 b9 | 40 e2 08 05 b9 20 1c de |(.;?..@.|@.... ..|
|00001420| 08 20 20 20 20 20 20 20 | 20 40 dd 00 00 00 00 00 |.       | @......|
|00001430| 02 03 20 46 30 34 e2 0d | 46 e6 02 3c 2d 2d 2d 2d |.. F04..|F..<----|
|00001440| 20 61 64 64 20 6f 6e 65 | 20 74 6f 20 6f 75 72 20 | add one| to our |
|00001450| 73 75 62 64 69 72 65 63 | 74 6f 72 79 20 63 6f 75 |subdirec|tory cou|
|00001460| 6e 64 0d 63 08 0c 00 03 | ec d6 46 45 46 0b 00 03 |nd.c....|..FEF...|
|00001470| ec 48 e6 03 e2 03 20 13 | dd 00 00 00 00 00 02 03 |.H.... .|........|
|00001480| 46 20 03 3c 2d 2d 2d 2d | 2d 20 69 73 20 74 68 69 |F .<----|- is thi|
|00001490| 73 20 61 20 56 4f 4c 55 | 4d 45 20 6c 61 62 65 6c |s a VOLU|ME label|
|000014a0| 3f 20 4f 6e 6c 79 20 31 | 20 70 65 72 20 64 69 72 |? Only 1| per dir|
|000014b0| 21 0d 36 14 e5 00 b8 20 | 45 e1 04 46 03 20 73 6f |!.6.... |E..F. so|
|000014c0| 20 77 65 20 61 73 69 67 | 6e 20 69 74 20 74 6f 20 | we asig|n it to |
|000014d0| 74 68 65 20 30 20 63 65 | 6c 6c 20 69 6e 20 74 68 |the 0 ce|ll in th|
|000014e0| 65 20 61 72 72 61 79 0d | 36 2d e8 00 46 20 04 20 |e array.|6-..F . |
|000014f0| 20 20 20 20 20 20 20 20 | 20 20 61 6e 64 20 77 65 |        |  and we|
|00001500| 20 64 6f 6e 27 74 20 63 | 61 72 65 20 74 6f 20 70 | don't c|are to p|
|00001510| 61 64 20 74 68 69 73 20 | 6f 6e 65 2e 0d 0d 08 0c |ad this |one.....|
|00001520| 00 03 ec d2 46 45 2c 10 | 20 6e 6f 77 20 77 65 20 |....FE,.| now we |
|00001530| 61 72 65 20 64 6f 77 6e | 20 74 6f 20 6a 75 73 74 |are down| to just|
|00001540| 20 61 20 72 65 67 75 6c | 61 72 20 66 69 6c 65 2e | a regul|ar file.|
|00001550| 0d 20 2a 14 e5 03 e2 03 | 20 45 3b 3f e1 04 40 e2 |. *.....| E;?..@.|
|00001560| 08 40 e2 07 05 e2 08 06 | b9 20 1c de 05 20 20 20 |.@......|. ...   |
|00001570| 20 20 40 df 00 00 00 00 | 02 02 20 46 2a 14 e5 00 |  @.....|.. F*...|
|00001580| e2 03 20 45 3b 3f e1 04 | 40 b9 40 e2 08 05 b9 20 |.. E;?..|@.@.... |
|00001590| 1c de 08 20 20 20 20 20 | 20 20 20 40 dd 00 00 00 |...     |   @....|
|000015a0| 00 00 02 03 20 46 06 34 | e2 0b 46 41 04 0d 46 00 |.... F.4|..FA..F.|
|000015b0| 04 0d 46 00 04 10 0d 00 | 4e 0c 00 03 ed ea 46 45 |..F.....|N.....FE|
|000015c0| 01 20 20 20 4f 4b 2c 20 | 73 6f 20 74 68 65 20 66 |.   OK, |so the f|
|000015d0| 69 6c 65 6e 61 6d 65 20 | 44 4f 45 53 20 4e 4f 54 |ilename |DOES NOT|
|000015e0| 20 68 61 76 65 20 61 6e | 20 65 78 74 65 6e 64 65 | have an| extende|
|000015f0| 72 2e 20 49 74 27 73 20 | 6e 6f 77 20 73 69 6d 70 |r. It's |now simp|
|00001600| 6c 65 72 2e 0d 6d 04 10 | 0d 00 26 0b 00 03 ed 74 |ler..m..|..&....t|
|00001610| e6 03 e2 03 20 13 dd 00 | 00 00 00 00 02 04 46 65 |.... ...|......Fe|
|00001620| 02 3c 2d 2d 2d 2d 20 53 | 55 42 44 49 52 3f 0d 20 |.<---- S|UBDIR?. |
|00001630| 14 14 e5 00 e2 03 20 45 | de 01 28 1c e1 04 1c de |...... E|..(.....|
|00001640| 01 29 46 02 06 34 e2 0d | 46 41 08 0c 00 03 ed e6 |.)F..4..|FA......|
|00001650| 46 45 2c 0b 00 03 ed b8 | e6 03 e2 03 20 13 dd 00 |FE,.....|.... ...|
|00001660| 00 00 00 00 02 03 46 3c | 02 3c 2d 2d 2d 2d 20 76 |......F<|.<---- v|
|00001670| 6f 6c 75 6d 65 20 6c 61 | 62 65 6c 3f 0d 76 0a 14 |olume la|bel?.v..|
|00001680| e5 00 b8 20 45 e1 04 46 | 06 2d e8 00 46 45 08 0c |... E..F|.-..FE..|
|00001690| 00 03 ed e2 46 45 20 14 | e5 00 e2 03 20 45 e1 04 |....FE .|.... E..|
|000016a0| 46 00 02 3c 2d 2d 2d 2d | 20 6e 6f 72 6d 61 6c 20 |F..<----| normal |
|000016b0| 66 69 6c 65 0d 6c 06 34 | e2 0b 46 41 04 0d 46 00 |file.l.4|..FA..F.|
|000016c0| 04 0d 46 00 04 0d 46 00 | 04 10 0d 00 3c 14 e6 00 |..F...F.|....<...|
|000016d0| e2 03 20 45 34 e2 00 06 | dd 50 50 00 00 00 02 04 |.. E4...|.PP.....|
|000016e0| 20 46 02 3c 2d 2d 2d 2d | 20 4e 6f 74 65 2c 20 6c | F.<----| Note, l|
|000016f0| 6f 6e 67 77 6f 72 64 20 | 66 6f 72 20 66 69 6c 65 |ongword |for file|
|00001700| 20 73 69 7a 65 21 0d 49 | 38 14 e6 02 e2 03 20 45 | size!.I|8..... E|
|00001710| 33 e2 00 06 dd 40 40 00 | 00 00 02 04 20 46 06 3c |3....@@.|.... F.<|
|00001720| 2d 2d 2d 2d 20 4e 6f 74 | 65 2c 20 77 6f 72 64 20 |---- Not|e, word |
|00001730| 66 6f 72 20 64 61 74 65 | 20 61 6e 64 2e 2e 2e 0d |for date| and....|
|00001740| 2a 14 e6 01 e2 03 20 45 | 33 e2 00 06 dd 30 30 00 |*..... E|3....00.|
|00001750| 00 00 02 04 20 46 06 3c | 2d 2d 2d 2d 20 2e 2e 2e |.... F.<|---- ...|
|00001760| 20 66 6f 72 20 74 69 6d | 65 0d 06 34 e2 03 46 00 | for tim|e..4..F.|
|00001770| 06 e8 00 7c 46 23 04 10 | 0d 01 4a 10 4e 6f 77 20 |...|F#..|..J.Now |
|00001780| 77 65 20 63 6c 65 61 72 | 20 74 68 65 20 66 69 6c |we clear| the fil|
|00001790| 65 6e 61 6d 65 20 73 65 | 63 74 69 6f 6e 20 6f 66 |ename se|ction of|
|000017a0| 20 74 68 65 20 62 75 66 | 66 65 72 2c 20 61 73 20 | the buf|fer, as |
|000017b0| 6d 65 6e 74 69 6f 6e 65 | 64 20 65 61 72 6c 69 65 |mentione|d earlie|
|000017c0| 72 2e 0d 65 26 93 e1 00 | 21 df 70 00 00 00 02 04 |r..e&...|!.p.....|
|000017d0| 21 df 50 00 00 00 02 03 | 20 45 de 0d 20 20 20 20 |!.P.....| E..    |
|000017e0| 20 20 20 20 20 20 20 20 | 20 46 04 10 0d 6f 4c 10 |        | F...oL.|
|000017f0| 54 68 69 73 20 69 73 20 | 74 68 65 20 53 4e 45 58 |This is |the SNEX|
|00001800| 54 20 66 75 6e 63 74 69 | 6f 6e 20 49 20 77 61 73 |T functi|on I was|
|00001810| 20 74 61 6c 6b 69 6e 67 | 20 61 62 6f 75 74 2e 20 | talking| about. |
|00001820| 54 68 69 73 20 70 75 74 | 73 20 74 68 65 20 6e 65 |This put|s the ne|
|00001830| 78 74 20 65 6e 74 72 79 | 0d 2e 18 10 69 6e 74 6f |xt entry|....into|
|00001840| 20 74 68 65 20 44 54 41 | 20 62 75 66 66 65 72 2e | the DTA| buffer.|
|00001850| 0d 63 0e e0 00 45 89 dc | 1e 00 00 00 02 06 20 46 |.c...E..|...... F|
|00001860| 04 2e 46 00 02 df c4 00 | 00 00 02 05 00 00 00 00 |..F.....|........|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001890| 00 0e bf d0 00 2c 00 0e | bf ba 00 04 00 00 00 00 |.....,..|........|
|000018a0| 00 00 00 00 00 00 00 00 | 00 0e 5a ea 00 0c 00 0e |........|..Z.....|
|000018b0| bf d0 00 0e bf ba 00 00 | 00 19 00 00 00 af 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 af 00 00 00 0c 00 00 |........|........|
|000018d0| 00 06 00 00 00 00 00 00 | 00 00 00 00 00 ae 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 03 | f0 50 00 01 00 00 00 00 |........|.P......|
|000018f0| 00 00 00 00 00 00 00 00 | 00 03 f6 54 00 01 00 00 |........|...T....|
|00001900| 00 00 00 00 00 00 00 00 | 00 00 00 03 fc 58 00 01 |........|.....X..|
|00001910| 00 04 00 5c 00 01 00 04 | 04 60 00 01 00 04 08 64 |...\....|.`.....d|
|00001920| 00 01 01 03 ee 98 00 00 | 00 00 00 03 e6 a8       |........|......  |
+--------+-------------------------+-------------------------+--------+--------+